home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok85 / reqtools / reqtfilereq.def < prev    next >
Text File  |  1993-11-04  |  2KB  |  36 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.    ReqTFileReq.def
  3.   :Contents.   Simple Benutzung des ReqTools Filerequesters
  4.   :Author.     Frank Lömker
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V4.0d
  8.   :Support.    Basiert zu großen Teilen auf ARPFileReq von Bernd Preußing
  9.   :History.    V1.0, [Frank Lömker] 24-Feb-92
  10.   :History.    V1.1, [Frank Lömker] 03-Jul-92 Requester nicht freigegeben
  11.   :History.    V1.2, [Frank Lömker] 10-Aug-92 Save-Mode, Patternrückgabe,
  12.   :History.                                   LockWindow
  13.   :Bugs.       keine bekannt
  14. ---------------------------------------------------------------------------*)
  15. DEFINITION MODULE ReqTFileReq;
  16.  
  17. FROM SYSTEM IMPORT ADDRESS;
  18.  
  19. VAR NoPat:ARRAY [1..1] OF CHAR;  (* = "" *)
  20.  
  21. PROCEDURE FileReq (VAR FName:ARRAY OF CHAR; Window:ADDRESS; Title:ARRAY OF CHAR;
  22.                    x,y:INTEGER;VAR pattern:ARRAY OF CHAR;save:BOOLEAN):BOOLEAN;
  23. (* :Input.      FName: Vorgabe des kompletten Namens mit Pfad
  24.    :Input.      Window: Das Fenster, in dem der Requester erscheinen soll
  25.    :Input.      Title: Meldung für Fenstertitel, z.B. 'Laden'
  26.    :Input.      x,y: Koordinaten des Requesters, bei <0 default
  27.    :Input.      pattern: Pattern, das benutzt werden soll,
  28.    :Input.               bei '' kein Pattern-Gadget
  29.    :Input.      save: Bei TRUE kein Doppel-Klick, aber Möglichkeit nicht
  30.    :Input.            existierendes Directory anzulegen
  31.    :Result.    TRUE: FName ist gültig und wurde angewählt.
  32.    :Result.    FALSE: Es wurde CANCEL oder Window-Close angewählt
  33.    :Semantic.   Es wird ein ReqTools-FileRequester geöffnet.
  34. *)
  35. END ReqTFileReq.def
  36.